Info-Mac 3/Info_Mac_1994-01.iso/Text Processing/Free Text 1.03/Stack indexer⁄browser v.1.03/Stack indexer_browser v.1.03/background_2734.xml

Extensible Markup Language | 1993-12-27 | 40.8 KB | 982 lines

<?xml version="1.0" encoding="utf-8" ?>
<!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
<background>
    <id>2734</id>
    <filler1>0</filler1>
    <bitmap>BMAP_3416.pbm</bitmap>
    <cantDelete> <false /> </cantDelete>
    <showPict> <true /> </showPict>
    <dontSearch> <false /> </dontSearch>
    <link rel="stylesheet" type="text/css" href="stylesheet_6548.css" />
    <part>
        <id>15</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>233</left>
            <top>0</top>
            <right>255</right>
            <bottom>22</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29514</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>empty subset 1</name>
        <script>on mouseUp
if the OptionKey is down then
show field "SearchPattern1"
else if the CommandKey is down then
ask "Proximity range (bytes)?" with 48
setNeighborhoodSize It -- reset neighborhood for proximity search
else -- empty the subset associated with Index field #1
checkOpenDatabase
if not (getSubsetHandle(1) = 0 or getSubsetHandle(1) = empty) then
get zbrowser ("RELEASESUBSET", getSubsetHandle(1))
end if
setSubsetHandle 1,zbrowser("NEWSUBSET",getTextFileRefNum())
get zbrowser ("EMPTYSUBSET", getSubsetHandle(1))
browseIndex1
put empty into field "SearchPattern1"
show field "SearchPattern1"
show bg button "fill subset 1"
show bg button "not subset 1"
if the visible of bg button "fill subset 2" then
show bg button "or subsets"
show bg button "and subsets"
end if
end if
end mouseUp
</script>
    </part>
    <part>
        <id>20</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>257</left>
            <top>0</top>
            <right>279</right>
            <bottom>22</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29514</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>empty subset 2</name>
        <script>on mouseUp
if the OptionKey is down then
show field "SearchPattern2"
else if the CommandKey is down then
ask "Proximity range (bytes)?" with 48
setNeighborhoodSize It -- reset neighborhood for proximity search
else -- empty the subset associated with Index field #2
checkOpenDatabase
if not (getSubsetHandle(2) = 0 or getSubsetHandle(2) = empty) then
get zbrowser ("RELEASESUBSET", getSubsetHandle(2))
end if
setSubsetHandle 2,zbrowser("NEWSUBSET",getTextFileRefNum())
get zbrowser ("EMPTYSUBSET", getSubsetHandle(2))
browseIndex2
put empty into field "SearchPattern2"
show field "SearchPattern2"
show bg button "fill subset 2"
show bg button "not subset 2"
if the visible of bg button "fill subset 1" then
show bg button "or subsets"
show bg button "and subsets"
end if
end if
end mouseUp
</script>
    </part>
    <part>
        <id>39</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>493</left>
            <top>173</top>
            <right>512</right>
            <bottom>193</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22489</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>pageDownContext</name>
        <script>on mouseDown
global contextLines
checkOpenDatabase
if line contextLines of field Context is empty then exit mouseDown
setInstanceNum getTextPtrListInstanceItem (contextLines)
browseContext 1
setInstanceNum getTextPtrListInstanceItem (1)
end mouseDown

on mouseStillDown
global contextLines
if line contextLines of field Context is empty then exit mouseStillDown
setInstanceNum getTextPtrListInstanceItem (contextLines)
browseContext 1
setInstanceNum getTextPtrListInstanceItem (1)
end mouseStillDown
</script>
    </part>
    <part>
        <id>38</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>493</left>
            <top>135</top>
            <right>512</right>
            <bottom>159</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22489</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>pageUpContext</name>
        <script>on mouseDown
global contextLines
checkOpenDatabase
if line 1 of field Context is empty then exit mouseDown
browseContext contextLines
setInstanceNum getTextPtrListInstanceItem (1)
end mouseDown

on mouseStillDown
global contextLines
if line 1 of field Context is empty then exit mouseStillDown
browseContext contextLines
setInstanceNum getTextPtrListInstanceItem (1)
end mouseStillDown
</script>
    </part>
    <part>
        <id>33</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>213</left>
            <top>86</top>
            <right>233</right>
            <bottom>105</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22489</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>pageDownIndex1</name>
        <script>on mouseDown
global indexLines
checkOpenDatabase
if line indexLines of field index1 is empty then
beep
exit mouseDown
end if
setWordNum1 (getWordNum1() + indexLines - 1)
browseIndex1
end mouseDown

on mouseStillDown
global indexLines
if line indexLines of field index1 is empty then
beep
exit mouseStillDown
end if
setWordNum1 (getWordNum1() + indexLines - 1)
browseIndex1
end mouseStillDown
</script>
    </part>
    <part>
        <id>25</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>213</left>
            <top>49</top>
            <right>233</right>
            <bottom>72</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22489</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>pageUpIndex1</name>
        <script>on mouseDown
global indexLines
checkOpenDatabase
get getWordNum1() - indexLines + 1
if It < 0 then
beep
put 0 into It
end if
setWordNum1 It
browseIndex1
end mouseDown

on mouseStillDown
global indexLines
get getWordNum1() - indexLines + 1
if It < 0 then
beep
put 0 into It
end if
setWordNum1 It
browseIndex1
end mouseStillDown
</script>
    </part>
    <part>
        <id>35</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>492</left>
            <top>49</top>
            <right>512</right>
            <bottom>72</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22489</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>pageUpIndex2</name>
        <script>on mouseDown
global indexLines
checkOpenDatabase
get getWordNum2() - indexLines + 1
if It < 0 then
beep
put 0 into It
end if
setWordNum2 It
browseIndex2
end mouseDown

on mouseStillDown
global indexLines
get getWordNum2() - indexLines + 1
if It < 0 then
beep
put 0 into It
end if
setWordNum2 It
browseIndex2
end mouseStillDown
</script>
    </part>
    <part>
        <id>36</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>493</left>
            <top>86</top>
            <right>512</right>
            <bottom>105</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>22489</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>pageDownIndex2</name>
        <script>on mouseDown
global indexLines
checkOpenDatabase
if line indexLines of field index2 is empty then
beep
exit mouseDown
end if
setWordNum2 (getWordNum2() + indexLines - 1)
browseIndex2
end mouseDown

on mouseStillDown
global indexLines
if line indexLines of field index2 is empty then
beep
exit mouseStillDown
end if
setWordNum2 (getWordNum2() + indexLines - 1)
browseIndex2
end mouseStillDown
</script>
    </part>
    <part>
        <id>31</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>495</left>
            <top>104</top>
            <right>512</right>
            <bottom>120</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20407</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>scrollDownIndex2</name>
        <script>on mouseDown
global indexLines
checkOpenDatabase
if line indexLines of field Index2 is empty then
beep
exit mouseDown
end if
setWordNum2 (getWordNum2() + 1)
browseIndex2
end mouseDown

on mouseStillDown
global indexLines
if line indexLines of field Index2 is empty then
beep
exit mouseStillDown
end if
setWordNum2 (getWordNum2() + 2)
browseIndex2
end mouseStillDown
</script>
    </part>
    <part>
        <id>32</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>496</left>
            <top>71</top>
            <right>512</right>
            <bottom>87</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15717</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>jumpIndex2</name>
        <script>on mouseUp
checkOpenDatabase
ask "Word to jump to?"
if It is empty then exit to HyperCard
lock screen
setWordNum2 (line 1 of zbrowser ("LOCATE", It, getKeyFileRefNum()))
if getWordNum2() < 0 then setWordNum2(0)
browseIndex2
end mouseUp

</script>
    </part>
    <part>
        <id>30</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>495</left>
            <top>35</top>
            <right>512</right>
            <bottom>51</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24019</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>scrollUpIndex2</name>
        <script>on mouseDown
checkOpenDatabase
get getWordNum2() - 1
if It < 0 then
beep
put 0 into It
end if
setWordNum2 It
browseIndex2
end mouseDown

on mouseStillDown
get getWordNum2() - 2
if It < 0 then
beep
put 0 into It
end if
setWordNum2 It
browseIndex2
end mouseStillDown
</script>
    </part>
    <part>
        <id>34</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>216</left>
            <top>35</top>
            <right>233</right>
            <bottom>51</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24019</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>scrollUpIndex1</name>
        <script>on mouseDown
checkOpenDatabase
get getWordNum1() - 1
if It < 0 then
beep
put 0 into It
end if
setWordNum1 It
browseIndex1
end mouseDown

on mouseStillDown
get getWordNum1() - 2
if It < 0 then
beep
put 0 into It
end if
setWordNum1 It
browseIndex1
end mouseStillDown
</script>
    </part>
    <part>
        <id>12</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>217</left>
            <top>71</top>
            <right>233</right>
            <bottom>87</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15717</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>jumpIndex1</name>
        <script>on mouseUp
checkOpenDatabase
ask "Word to jump to?"
if It is empty then exit to HyperCard
lock screen
setWordNum1 (line 1 of zbrowser ("LOCATE", It, getKeyFileRefNum()))
if getWordNum1() < 0 then setWordNum1(0)
browseIndex1
end mouseUp

</script>
    </part>
    <part>
        <id>3</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>279</left>
            <top>35</top>
            <right>496</right>
            <bottom>120</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Index2</name>
        <script>on mouseUp
global whichSubset
put ShiftKey() into shifty
put OptionKey() into opty
checkOpenDatabase -- make sure files are open
set cursor to watch
lock screen
put clickedLineNum() into clickedLine
if shifty is down and getSubsetHandle(2) is not 0 then
-- must add or subtract word from subset
show field "SearchPattern2"
if opty is down then -- subtract the word
put " and not " & last word of line clickedLine of field "Index2"¬
after field "SearchPattern2"
get zbrowser ("SETSUBSETBITS", clickedLine + getWordNum2() - 1,¬
getNeighborhoodSize(), 0, getKeyFileRefNum(), getPtrFileRefNum(),¬
getSubsetHandle(2))
else -- add the word
if field "SearchPattern2" is not empty then
put " or " after field "searchPattern2"
end if
put last word of line clickedLine of field "Index2" after¬
field "SearchPattern2"
get zbrowser ("SETSUBSETBITS", clickedLine + getWordNum2() - 1,¬
getNeighborhoodSize(), 1, getKeyFileRefNum(), getPtrFileRefNum(),¬
getSubsetHandle(2))
end if
browseIndex2
else
--must retrieve clicked word
put getInstanceList2item (clickedLine) into instanceNum
if instanceNum is empty then
beep
answer "Sorry, nothing to retrieve!"
exit to HyperCard
end if
setInstanceNum instanceNum
put 2 into whichSubset
browseContext 1
end if
end mouseUp
</script>
    </part>
    <part>
        <id>1</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>35</top>
            <right>217</right>
            <bottom>120</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Index1</name>
        <script>on mouseUp
global whichSubset
put ShiftKey() into shifty
put OptionKey() into opty
checkOpenDatabase -- make sure files are open
set cursor to watch
lock screen
put clickedLineNum() into clickedLine
if shifty is down and getSubsetHandle(1) is not 0 then
-- must add or subtract word from subset
show field "SearchPattern1"
if opty is down then -- subtract the word
put " and not " & last word of line clickedLine of field "Index1"¬
after field "SearchPattern1"
get zbrowser ("SETSUBSETBITS", clickedLine + getWordNum1() - 1,¬
getNeighborhoodSize(), 0, getKeyFileRefNum(), getPtrFileRefNum(),¬
getSubsetHandle(1))
else -- add the word
if field "SearchPattern1" is not empty then
put " or " after field "searchPattern1"
end if
put last word of line clickedLine of field "Index1" after¬
field "SearchPattern1"
get zbrowser ("SETSUBSETBITS", clickedLine + getWordNum1() - 1,¬
getNeighborhoodSize(), 1, getKeyFileRefNum(), getPtrFileRefNum(),¬
getSubsetHandle(1))
end if
browseIndex1
else
--must retrieve clicked word
put getInstanceList1item (clickedLine) into instanceNum
if instanceNum is empty then
beep
answer "Sorry, nothing to retrieve!"
exit to HyperCard
end if
setInstanceNum instanceNum
put 1 into whichSubset
browseContext 1
end if
end mouseUp
</script>
    </part>
    <part>
        <id>4</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>123</top>
            <right>496</right>
            <bottom>208</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>Context</name>
        <script>on mouseUp
-- modified script for Context Field, to get the tags for stack name
-- and card number for indexed stack (via tag file) -- ^z -- 19901020
global textChunkSize, textOffset
lock screen
set cursor to watch
checkOpenDatabase -- make sure files are open
put clickedLineNum() into clickedLine
put getTextPtrListPtrItem(clickedLIne) into textPtr
if textPtr < 0 then
beep
answer "Sorry, nothing to retrieve!"
exit to HyperCard
end if
hide field "SearchPattern1"
hide field "SearchPattern2"
put zbrowser ("TEXT", textPtr, textChunkSize, textOffset,¬
getTextFileRefNum()) into tmpBuffer
put word 1 of tmpBuffer into soughtWord
get offset ("{[(", tmpBuffer)
put char It + 4 to It + 200 of tmpBuffer into tmpBuffer
put line 2 of tmpBuffer into cardNum
put line 1 of tmpBuffer into stackName
go to card cardNum of stack stackName in a new window
find soughtWord
end mouseUp
</script>
    </part>
    <part>
        <id>11</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <false /> </lockText>
        <rect>
            <left>234</left>
            <top>62</top>
            <right>423</right>
            <bottom>184</bottom>
        </rect>
        <style>scrolling</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>FTvars</name>
        <script></script>
    </part>
    <part>
        <id>16</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>233</left>
            <top>20</top>
            <right>255</right>
            <bottom>42</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29513</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>fill subset 1</name>
        <script>on mouseUp
-- fill the subset associated with Index field #1
checkOpenDatabase
if not (getSubsetHandle(1) = 0 or getSubsetHandle(1) = empty) then
get zbrowser ("RELEASESUBSET", getSubsetHandle(1))
setSubsetHandle 1,0
end if
browseIndex1
hide field "searchPattern1"
hide bg button "and subsets"
hide bg button "or subsets"
hide bg button "not subset 1"
hide bg button "fill subset 1"
end mouseUp

</script>
    </part>
    <part>
        <id>17</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>233</left>
            <top>40</top>
            <right>255</right>
            <bottom>62</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29515</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>not subset 1</name>
        <script>on mouseUp
-- invert the subset associated with Index field #1
checkOpenDatabase
if (getSubsetHandle(1) = 0 or getSubsetHandle(1) = empty) then
beep
answer "Sorry, subset not open!"
exit to HyperCard
else
get zbrowser ("BOOLEANNOTSUBSET", getSubsetHandle(1))
end if
browseIndex1
if the number of words in field "SearchPattern1" > 1 then
put "not (" before field "SearchPattern1"
put ")" after field "SearchPattern1"
else
put "not " before field "SearchPattern1"
end if
show field "SearchPattern1"
end mouseUp

</script>
    </part>
    <part>
        <id>18</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>240</left>
            <top>61</top>
            <right>271</right>
            <bottom>83</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29518</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>or subsets</name>
        <script>on mouseUp
-- union (Boolean OR) subsets
checkOpenDatabase
if (getSubsetHandle(1) = 0 or getSubsetHandle(1) = empty or¬
getSubsetHandle(2) = 0 or getSubsetHandle(2) = empty) then
beep
answer "Sorry, subset not open!"
exit to HyperCard
end if
if clickedOnLeftHalf() then
get zbrowser ("ORSUBSETS", getSubsetHandle(1), getSubsetHandle(2))
browseIndex1
if field "SearchPattern1" is empty then
put field "SearchPattern2" into field "SearchPattern1"
else
if the number of words in field "SearchPattern2" > 1 then
put " or (" & field "SearchPattern2" & ")" after field¬
"SearchPattern1"
else
put " or " & field "SearchPattern2" after field "SearchPattern1"
end if
end if
else
get zbrowser ("ORSUBSETS", getSubsetHandle(2), getSubsetHandle(1))
browseIndex2
if field "SearchPattern2" is empty then
put field "SearchPattern1" into field "SearchPattern2"
else
if the number of words in field "SearchPattern1" > 1 then
put " or (" & field "SearchPattern1" & ")" after field¬
"SearchPattern2"
else
put " or " & field "SearchPattern1" after field "SearchPattern2"
end if
end if
end if
end mouseUp

</script>
    </part>
    <part>
        <id>19</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>240</left>
            <top>82</top>
            <right>271</right>
            <bottom>104</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29517</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>and subsets</name>
        <script>on mouseUp
-- intersection (Boolean AND) subsets
checkOpenDatabase
if (getSubsetHandle(1) = 0 or getSubsetHandle(1) = empty or¬
getSubsetHandle(2) = 0 or getSubsetHandle(2) = empty) then
beep
answer "Sorry, subset not open!"
exit to HyperCard
end if
if clickedOnLeftHalf() then
get zbrowser ("ANDSUBSETS", getSubsetHandle(1), getSubsetHandle(2))
browseIndex1
if field "SearchPattern1" is not empty then
if the number of words in field "SearchPattern2" > 1 then
put " and (" & field "SearchPattern2" & ")" after field¬
"SearchPattern1"
else
put " and " & field "SearchPattern2" after field "SearchPattern1"
end if
end if
else
get zbrowser ("ANDSUBSETS", getSubsetHandle(2), getSubsetHandle(1))
browseIndex2
if field "SearchPattern2" is not empty then
if the number of words in field "SearchPattern1" > 1 then
put " and (" & field "SearchPattern1" & ")" after field¬
"SearchPattern2"
else
put " and " & field "SearchPattern1" after field¬
"SearchPattern2"
end if
end if
end if
end mouseUp

</script>
    </part>
    <part>
        <id>21</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>257</left>
            <top>20</top>
            <right>279</right>
            <bottom>42</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29513</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>fill subset 2</name>
        <script>on mouseUp
-- fill the subset associated with Index field #2
checkOpenDatabase
if not (getSubsetHandle(2) = 0 or getSubsetHandle(2) = empty) then
get zbrowser ("RELEASESUBSET", getSubsetHandle(2))
setSubsetHandle 2,0
end if
browseIndex2
hide field "searchPattern2"
hide bg button "and subsets"
hide bg button "or subsets"
hide bg button "not subset 2"
hide bg button "fill subset 2"
end mouseUp

</script>
    </part>
    <part>
        <id>22</id>
        <type>button</type>
        <visible> <false /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>257</left>
            <top>40</top>
            <right>279</right>
            <bottom>62</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29515</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>not subset 2</name>
        <script>on mouseUp
-- invert the subset associated with Index field #2
checkOpenDatabase
if (getSubsetHandle(2) = 0 or getSubsetHandle(2) = empty) then
beep
answer "Sorry, subset not open!"
exit to HyperCard
else
get zbrowser ("BOOLEANNOTSUBSET", getSubsetHandle(2))
end if
browseIndex2
if the number of words in field "SearchPattern2" > 1 then
put "not (" before field "SearchPattern2"
put ")" after field "SearchPattern2"
else
put "not " before field "SearchPattern2"
end if
show field "SearchPattern2"
end mouseUp

</script>
    </part>
    <part>
        <id>29</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>216</left>
            <top>104</top>
            <right>233</right>
            <bottom>120</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20407</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>scrollDownIndex1</name>
        <script>on mouseDown
global indexLines
checkOpenDatabase
if line indexLines of field Index1 is empty then
beep
exit mouseDown
end if
setWordNum1 (getWordNum1() + 1)
browseIndex1
end mouseDown

on mouseStillDown
global indexLines
if line indexLines of field Index1 is empty then
beep
exit mouseStillDown
end if
setWordNum1 (getWordNum1() + 2)
browseIndex1
end mouseStillDown
</script>
    </part>
    <part>
        <id>37</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>495</left>
            <top>123</top>
            <right>512</right>
            <bottom>139</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>24019</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>scrollUpContext</name>
        <script>on mouseDown
checkOpenDatabase
if line 1 of field Context is empty then exit mouseDown
browseContext 2
setInstanceNum getTextPtrListInstanceItem (1)
end mouseDown

on mouseStillDown
if line 1 of field Context is empty then exit mouseStillDown
browseContext 3
setInstanceNum getTextPtrListInstanceItem (1)
end mouseStillDown
</script>
    </part>
    <part>
        <id>42</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>496</left>
            <top>158</top>
            <right>512</right>
            <bottom>174</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>15717</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>jumpContext</name>
        <script>on mouseUp
checkOpenDatabase
ask "Instances (+/-) to jump?"
lock screen
setInstanceNum (It + getInstanceNum())
browseContext 1
end mouseUp

</script>
    </part>
    <part>
        <id>40</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>495</left>
            <top>192</top>
            <right>512</right>
            <bottom>208</bottom>
        </rect>
        <style>rectangle</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <true /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>20407</icon>
        <textAlign>center</textAlign>
        <font>Chicago</font>
        <textSize>12</textSize>
        <textStyle>plain</textStyle>
        <name>scrollDownContext</name>
        <script>on mouseDown
global contextLines
checkOpenDatabase
if line contextLines of field Context is empty then exit mouseDown
setInstanceNum getTextPtrListInstanceItem (contextLines)
browseContext contextLines-1
setInstanceNum getTextPtrListInstanceItem (1)
end mouseDown

on mouseStillDown
global contextLines
if line contextLines of field Context is empty then exit mouseStillDown
setInstanceNum getTextPtrListInstanceItem (contextLines)
browseContext contextLines-2
setInstanceNum getTextPtrListInstanceItem (1)
end mouseStillDown
</script>
    </part>
    <part>
        <id>41</id>
        <type>button</type>
        <visible> <true /> </visible>
        <reserved5> 0 </reserved5>
        <reserved4> 0 </reserved4>
        <reserved3> 0 </reserved3>
        <reserved2> 0 </reserved2>
        <reserved1> 0 </reserved1>
        <enabled> <true /> </enabled>
        <rect>
            <left>474</left>
            <top>6</top>
            <right>506</right>
            <bottom>26</bottom>
        </rect>
        <style>transparent</style>
        <showName> <false /> </showName>
        <highlight> <false /> </highlight>
        <autoHighlight> <false /> </autoHighlight>
        <sharedHighlight> <true /> </sharedHighlight>
        <family>0</family>
        <titleWidth>0</titleWidth>
        <icon>29531</icon>
        <textAlign>center</textAlign>
        <font>Geneva</font>
        <textSize>9</textSize>
        <textStyle>bold</textStyle>
        <name>Open</name>
        <script>on mouseUp
global indexLines
closeDatabase -- close out any open files first
get openCloseFiles ( ) -- put up dialog box to pick database
if It is empty then exit to HyperCard -- quit if user chooses 'Cancel'
if char 1 of It is "{" then -- display error msg if necessary
answer It
exit mouseUp
end if
put line 2 of It into field "database name"
set cursor to watch
lock screen
setTextFileRefNum(word 1 of It) -- store returned refNum values
setKeyFileRefNum(word 2 of It)
setPtrFileRefNum(word 3 of It)
setNeighborhoodSize 48 -- initialize neighborhood for proximity search
setSubsetHandle 1,0 -- initialize subsets to empty
setSubsetHandle 2,0
setWordNum1 (line 1 of zbrowser("LOCATE", "A", getKeyFileRefNum()))
if getWordNum1() < 0 then setWordNum1(0)
setWordNum2 (line 1 of zbrowser("LOCATE", "Z", getKeyFileRefNum()))
if getWordNum2() < 0 then setWordNum2(0)
browseIndex1 -- load index windows
browseIndex2
setInstanceNum(getInstanceList1item (1))
browseContext 1
end mouseUp
</script>
    </part>
    <part>
        <id>45</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>0</left>
            <top>265</top>
            <right>233</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>SearchPattern1</name>
        <script>on mouseUp
hide field "SearchPattern1"
end mouseUp</script>
    </part>
    <part>
        <id>46</id>
        <type>field</type>
        <visible> <false /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>279</left>
            <top>265</top>
            <right>512</right>
            <bottom>340</bottom>
        </rect>
        <style>shadow</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>left</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>SearchPattern2</name>
        <script>on mouseUp
hide field "SearchPattern2"
end mouseUp</script>
    </part>
    <part>
        <id>47</id>
        <type>field</type>
        <visible> <true /> </visible>
        <dontWrap> <false /> </dontWrap>
        <dontSearch> <false /> </dontSearch>
        <sharedText> <false /> </sharedText>
        <fixedLineHeight> <true /> </fixedLineHeight>
        <autoTab> <false /> </autoTab>
        <lockText> <true /> </lockText>
        <rect>
            <left>19</left>
            <top>8</top>
            <right>192</right>
            <bottom>23</bottom>
        </rect>
        <style>rectangle</style>
        <autoSelect> <false /> </autoSelect>
        <showLines> <false /> </showLines>
        <wideMargins> <false /> </wideMargins>
        <multipleLines> <false /> </multipleLines>
        <reservedFamily> 0 </reservedFamily>
        <titleWidth>0</titleWidth>
        <icon>0</icon>
        <textAlign>center</textAlign>
        <font>Monaco</font>
        <textSize>9</textSize>
        <textStyle>plain</textStyle>
        <textHeight>12</textHeight>
        <name>database name</name>
        <script></script>
    </part>
    <name>BrowserBg</name>
    <script>on openCard -- make sure subset buttons are right for this card
put getSubsetHandle(1) = 0 or getSubsetHandle(1) = empty into noSub1
put getSubsetHandle(2) = 0 or getSubsetHandle(2) = empty into noSub2
if noSub1 and noSub2 then -- no subsets active on this card
hide bg button "and subsets"
hide bg button "or subsets"
hide bg button "not subset 1"
hide bg button "not subset 2"
hide bg button "fill subset 1"
hide bg button "fill subset 2"
else if noSub1 then -- only subset 2 active on this card
hide bg button "and subsets"
hide bg button "or subsets"
hide bg button "not subset 1"
hide bg button "fill subset 1"
show bg button "fill subset 2"
show bg button "not subset 2"
else if noSub2 then -- only subset 1 active on this card
hide bg button "and subsets"
hide bg button "or subsets"
hide bg button "not subset 2"
hide bg button "fill subset 2"
show bg button "fill subset 1"
show bg button "not subset 1"
else                -- both subsets 1 and 2 active on this card
show bg button "fill subset 1"
show bg button "fill subset 2"
show bg button "not subset 1"
show bg button "not subset 2"
show bg button "or subsets"
show bg button "and subsets"
end if
end openCard

on closeCard -- tidy up when leaving...
hide field "searchPattern1"
hide field "searchPattern2"
end closeCard</script>
</background>